home *** CD-ROM | disk | FTP | other *** search
/ Shock - The Game / Shock The Game.iso / pc / casts / old.cst / 00012_vidNav.ls < prev    next >
Encoding:
Text File  |  1997-04-08  |  872 b   |  51 lines
  1. --property Pstart, Pend, Plink
  2. --
  3. --global GvidSprite, GnavOb, GhotSpotOffset, GflowerFlag
  4. --
  5. --
  6. --on new me, whichLink
  7. --  
  8. --  set Plink = getat(whichLink,1)
  9. --  set Pstart = getat(whichLink,2)
  10. --  set Pend = getat(whichLink,3)
  11. --  
  12. --  return me
  13. --end
  14. --
  15. --
  16. --on move me
  17. --  if Plink = 0 then
  18. --    beep
  19. --  else  
  20. --    if not GflowerFlag then
  21. --      pushFrames me
  22. --    end if
  23. --    
  24. --  end if
  25. --end
  26. --
  27. --
  28. --on pushFrames me
  29. --  
  30. --  repeat with x = Pstart to Pend
  31. --    set the movieTime of sprite GvidSprite = x
  32. --    updatestage
  33. --  end repeat
  34. --  
  35. --  set GnavOb = new(script "navOb", Plink, Pend)
  36. --  
  37. --end
  38. --
  39. --
  40. --on pullFrames me
  41. --  
  42. --  set theDiff = Pstart - Pend
  43. --  repeat with x = 1 to theDiff
  44. --    set the movieTime of sprite GvidSprite = Pstart - x
  45. --    updatestage
  46. --  end repeat
  47. --  
  48. --  set GnavOb = new(script "navOb", Plink, Pend)
  49. --  
  50. --end
  51.